################################################################################
## Group Identities and Parliamentary Debates: Replication package
## Fiva, Nedregård and Øien (2025)

# Description:

## Code to make Table A11 and A12: "List of stop and procedural words"

################################################################################

library(xtable)
library(data.table)

# Directories (wd is set by master.R)
tab.dir  <- "../results/tables"
data.dir   <-  "../data/1_raw_data"


stop_words <- fread(paste(data.dir, "stop_words_lemma.csv", sep = "/"))

stop_words <- sort(stop_words$lemmas)

stop_words <- unique(stop_words)

writeLines(stop_words, 
           paste(tab.dir, "tabA11.txt", sep = "/"))

## Procedural words
procedural <- fread(paste(data.dir, "procedural_lemma.csv", sep = "/"))
procedural <- sort(procedural$lemmas)

procedural <- unique(procedural)

writeLines(procedural, 
           paste(tab.dir, "tabA12.txt", sep = "/"))







